home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / freeres / rst2frm4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  3.6 KB  |  156 lines
  1. unit Rst2frm4;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Tabs, TabNotBk;
  8.  
  9. type
  10.   TForm4 = class(TForm)
  11.     Panel1: TPanel;
  12.     Button1: TButton;
  13.     TabbedNotebook1: TTabbedNotebook;
  14.     Edit1: TEdit;
  15.     Edit2: TEdit;
  16.     Edit3: TEdit;
  17.     Edit4: TEdit;
  18.     Edit5: TEdit;
  19.     Edit6: TEdit;
  20.     Edit7: TEdit;
  21.     Edit8: TEdit;
  22.     Edit9: TEdit;
  23.     Edit10: TEdit;
  24.     Edit11: TEdit;
  25.     Edit12: TEdit;
  26.     Edit13: TEdit;
  27.     Edit14: TEdit;
  28.     Edit21: TEdit;
  29.     Edit20: TEdit;
  30.     Edit19: TEdit;
  31.     Edit18: TEdit;
  32.     Edit17: TEdit;
  33.     Edit16: TEdit;
  34.     Edit15: TEdit;
  35.     Button3: TButton;
  36.     Button4: TButton;
  37.     Button5: TButton;
  38.     Button6: TButton;
  39.     Button7: TButton;
  40.     Button8: TButton;
  41.     Button9: TButton;
  42.     Button10: TButton;
  43.     Button11: TButton;
  44.     Button12: TButton;
  45.     Button13: TButton;
  46.     Button14: TButton;
  47.     Button15: TButton;
  48.     Button16: TButton;
  49.     Button17: TButton;
  50.     Button22: TButton;
  51.     Button21: TButton;
  52.     Button20: TButton;
  53.     Button19: TButton;
  54.     Button18: TButton;
  55.     CheckBox1: TCheckBox;
  56.     CheckBox2: TCheckBox;
  57.     CheckBox3: TCheckBox;
  58.     CheckBox4: TCheckBox;
  59.     CheckBox5: TCheckBox;
  60.     CheckBox6: TCheckBox;
  61.     CheckBox7: TCheckBox;
  62.     CheckBox8: TCheckBox;
  63.     CheckBox9: TCheckBox;
  64.     CheckBox10: TCheckBox;
  65.     CheckBox11: TCheckBox;
  66.     CheckBox22: TCheckBox;
  67.     CheckBox33: TCheckBox;
  68.     CheckBox44: TCheckBox;
  69.     CheckBox34: TCheckBox;
  70.     CheckBox23: TCheckBox;
  71.     CheckBox12: TCheckBox;
  72.     CheckBox13: TCheckBox;
  73.     CheckBox14: TCheckBox;
  74.     CheckBox15: TCheckBox;
  75.     CheckBox16: TCheckBox;
  76.     CheckBox17: TCheckBox;
  77.     CheckBox18: TCheckBox;
  78.     CheckBox19: TCheckBox;
  79.     CheckBox20: TCheckBox;
  80.     CheckBox21: TCheckBox;
  81.     CheckBox32: TCheckBox;
  82.     CheckBox31: TCheckBox;
  83.     CheckBox30: TCheckBox;
  84.     CheckBox29: TCheckBox;
  85.     CheckBox28: TCheckBox;
  86.     CheckBox27: TCheckBox;
  87.     CheckBox26: TCheckBox;
  88.     CheckBox25: TCheckBox;
  89.     CheckBox24: TCheckBox;
  90.     CheckBox35: TCheckBox;
  91.     CheckBox36: TCheckBox;
  92.     CheckBox37: TCheckBox;
  93.     CheckBox38: TCheckBox;
  94.     CheckBox39: TCheckBox;
  95.     CheckBox40: TCheckBox;
  96.     CheckBox41: TCheckBox;
  97.     CheckBox42: TCheckBox;
  98.     CheckBox43: TCheckBox;
  99.     ComboBox1: TComboBox;
  100.     ComboBox2: TComboBox;
  101.     ComboBox3: TComboBox;
  102.     ComboBox4: TComboBox;
  103.     ComboBox5: TComboBox;
  104.     ComboBox6: TComboBox;
  105.     ComboBox7: TComboBox;
  106.     ComboBox8: TComboBox;
  107.     ComboBox9: TComboBox;
  108.     ComboBox10: TComboBox;
  109.     ComboBox11: TComboBox;
  110.     ComboBox12: TComboBox;
  111.     ComboBox13: TComboBox;
  112.     ComboBox14: TComboBox;
  113.     procedure Button1Click(Sender: TObject);
  114.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  115.     procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  116.       var AllowChange: Boolean);
  117.   private
  118.     { Private declarations }
  119.   public
  120.     { Public declarations }
  121.   end;
  122.  
  123. var
  124.   Form4: TForm4;
  125.  
  126. implementation
  127.  
  128. {$R *.DFM}
  129.  
  130. uses rst2frm3, FreeRes;
  131.  
  132. procedure TForm4.Button1Click(Sender: TObject);
  133. begin
  134.   Form3.Height := Height;
  135.   Form3.Width := Width;
  136.   Form3.Left := Left;
  137.   Form3.Top := Top;
  138.   FreeWinControl(self);
  139.   Form3.Show;
  140.   Hide;
  141. end;
  142.  
  143. procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
  144. begin
  145.   Application.Terminate;
  146. end;
  147.  
  148. procedure TForm4.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  149.   var AllowChange: Boolean);
  150. begin
  151.   with TabbedNotebook1 do
  152.     FreeWinControl(TWinControl(Pages.objects[PageIndex]));
  153. end;
  154.  
  155. end.
  156.